home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / First Tutorial / Fractal Mountain Graph < prev    next >
Lisp/Scheme  |  1997-01-23  |  4KB  |  21 lines
  1.  
  2. 19726759 
  3. 4653229 
  4. ("Geneva" 9 :srcor :plain (:color-index 0)) 
  5. (589824 655361 851970 720899 720900 720901 851974 917511 720904 589833 458762 262155 131084 131085 196622 458767 458768 393233 458770 327699 196628 262165 262166 327703 393240 524313 589850 589851 655388 589853 589854 655391 589856 589857 524322 458787 393252 327717 327718 262183 393256 458793 524330 720939 852012 786477 589870 589871 589872 393265 458802 589875 655412 655413 786486 786487 720952 720953 655418 655419 524348 458813 262206 65599 64 131137 131138 327747 458820 393285 458822 524359 655432 589897 786506 1048651 1114188 1179725 1245262 1376335 1310800 1376337 1638482 1704019 1638484 1769557 1835094 2097239 2162776 2424921 2752602 2949211 3211356 3342429 3407966 3276895 3473504 3604577 3670114 3735651 3735652 3866725 3997798 4128871 4259944 4128873 3932266 3932267 3801196 3801197 3866734 3866735 3997808 4128881 4128882 4194419 4259956 4194421 3997814 4063351 4128888 4456569 4522106 4653179 4653180 4849789 5046398 5439615 5636224 5767297 5832834 5963907 6094980 6094981 6160518 6160519 6094984 6226057 6226058 6094987 5963916 5963917 6094990 6029455 5963920 6094993 6226066 6226067 6226068 6160533 6094998 6029463 5898392 6160537 6357146 6357147 6488220 6619293 6750366 6684831 6815904 6750369 6684834 6750371 6815908 6684837 6619302 6684839 6553768 6488233 6488234 6422699 6226092 5963949 5636270 5505199 5374128 5308593 5308594 5243059 5243060 5177525 5111990 5111991 5177528 4849849 4718778 4522171 4456636 4456637 4260030 4128959 3866816 4063425 4260034 4194499 4194500 4260037 4325574 4260039 4325576 4194505 4128970 4194507 4128972 4128973 4063438 4194511 4194512 4063441 4194514 4325587 4522196 4522197 4522198 4587735 4587736 4522201 4391130 4522203 4587740 4456669 4391134 4194527 4128992 3997921 3866850 3801315 3670244 3539173 3145958 2949351 2687208 2621673 2556138 2425067 2425068 2359533 2425070 2359535 2162928 2097393 2097394 2097395 2162932 2228469 2294006 2425079 2490616 2359545 2294010 2294011 2097404 2031869 1900798 1769727 1638656 1769729 1900802 2031875 2097412 2097413 2162950 2228487 2162952 2162953 2162954 2228491 2359564 2490637 2556174 2687247 2752784 3014929 3014930 3080467 3277076 3211541 3277078 3539223 3801368 3735833 3801370 3997979 3997980 4129053 4063518 4325663 4456736 4391201 4391202 4260131 4194596 4260133 4129062 4194599 4260136 4194601 4194602 3997995 3801388 3670317 3604782 3539247 3539248 3473713 3539250 3539251 3408180 3342645 3277110 3211575 3342648 3342649 3146042 3080507 3080508 3014973 3080510 3080511 3014976 3014977 3146050 3211587 3146052 3211589 3473734 3473735 3539272 3539273 3670346 3670347 3604812 3670349 3735886 3801423 3866960 4129105 4325714 4456787 4653396 4784469 5112150 5308759 5570904 5505369 5636442 5833051 6029660 6160733 6226270 6422879 6488416 6488417 6422882 6553955 6488420 6553957 6422886 6553959 6619496 6750569 6750570 6947179 7012716 7078253 7078254 7209327 7209328 7340401 7405938 7537011 7537012 7602549 7733622 7864695 7995768 7995769 8061306 8061307 7930236 7930237 7995774 8257919 8323456 8192385 8126850 8126851 8061316 7930245 7864710 7733639 7864712 7733641 7668106 7537035 7405964 7340429 7209358 7143823 6816144 6750609 6488466 6488467 6554004 6554005 6291862 6291863 6095256 6029721 6029722 5964187 5964188 6095261 6160798 6160799 6095264 6029729 6095266 6160803 6160804 6226341 6357414 6357415 6554024 6619561 6619562 6685099 6816172 6685101 6685102 6422959 6488496 6291889 6226354 6357427 6619572 6619573 6750646 6816183 6816184 6750649 6816186 6816187 6816188 6816189 6816190 6816191 6881728 6816193 6619586 6685123 6554052 6422981 6422982 6422983 6291912 5833161 5439946 5177803 4850124 4456909 4260302 4129231 3998160 3801553 3604946 3473875 3342804 3408341 3277270 3342807 3277272 3277273 3080666 3080667 3015132 3080669 3146206 3080671 3015136 3015137 3080674 3015139 2884068 2884069 2752998 2687463 2687464 2425321 2294250 2294251 2228716 2097645 1901038 1638895 1507824 1507825 1507826 1573363 1573364 1507829 1507830 1245687 983544 852473 786938 721403 524796 524797 459262 524799 590336) 
  6. "(setq material (vector-round 0 127 (gen-noise-brownian 9 0.4 0.8)))
  7. " 
  8. 67 
  9. 0 
  10. nil 
  11. nil 
  12. nil 
  13. nil 
  14. 27918448 
  15. nil 
  16. nil 
  17. 16 
  18. 10 
  19. 2 
  20. 6 
  21. 5